﻿Public Class UploadSettings
    Private _sID As Integer = -1
    Public ReadOnly Property ID As Integer
        Get
            Return _sID
        End Get
    End Property
    Private _sAutoStart As Boolean = False
    Public ReadOnly Property AutoStart As Boolean
        Get
            Return _sAutoStart
        End Get
    End Property
    Private _sAutoCopy As Boolean = False
    Public ReadOnly Property AutoCopy As Boolean
        Get
            Return _sAutoCopy
        End Get
    End Property
    Private _sShowProgress As Boolean = False
    Public ReadOnly Property ShowProgress As Boolean
        Get
            Return _sShowProgress
        End Get
    End Property
    Private _sFilename As String = Nothing
    Public ReadOnly Property Filename As String
        Get
            Return _sFilename
        End Get
    End Property
    Public Sub New(ByVal ID As Integer, ByVal Filename As String, ByVal AutoStart As Boolean, Optional AutoCopy As Boolean = False, Optional ShowProgress As Boolean = False)
        _sFilename = Filename
        _sID = ID
        _sAutoStart = AutoStart
        _sAutoCopy = AutoCopy
        _sShowProgress = ShowProgress
    End Sub
End Class